home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / CFGEDIT2.AML < prev    next >
Text File  |  1996-07-17  |  3KB  |  89 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // CFGEDIT2.AML
  5. // Configuration for Edit Options 2
  6. //--------------------------------------------------------------------
  7.  
  8. include bootpath "define.aml"
  9.  
  10. constant default_eotline = "≡≡≡≡≡≡ End of Text ≡≡≡≡≡≡"
  11.  
  12. variable enterins, enterovl, options, eotline
  13.  
  14. // create dialog box
  15. dialog "Edit Options 2" 64 19 "cp"
  16.  
  17. // insert mode <enter> key
  18. groupbox 'Enter in Insert Mode:' 3 2
  19.   (menu ''
  20.      item " ( ) &Split Line"
  21.      item " ( ) &Insert Line"
  22.      item " ( ) Go to &Next Line "
  23.    end) '' (if? _EnterIns _EnterIns 'n') "sin"
  24.  
  25. // overstrike mode <enter> key
  26. groupbox 'Enter in Overstrike Mode:' 26 2
  27.   (menu ''
  28.      item " ( ) &Split Line"
  29.      item " ( ) &Insert Line"
  30.      item " ( ) Go to &Next Line"
  31.    end)  '' (if? _EnterOvl _EnterOvl 'n') "sin"
  32.  
  33. // option switches
  34. groupbox 'Options:' 3 7
  35.   (menu ''
  36.      item " [ ] &Join Lines on Delete Character at End-of-Line"
  37.      item " [ ] Join Lines on &Backspace at Column One"
  38.      item " [ ] &Rubout on Backspace in Overstrike Mode"
  39.      item " [ ] Copy/Move/Paste Line Blocks &Above the Current Line    "
  40.      item " [ ] &Use Current Line on Clipboard Cut/Copy when no Mark"
  41.      item " [ ] Repeat Current Line on &Copyblock when no Mark"
  42.      item " [ ] Delete Current Line on &Deleteblock when no Mark"
  43.      item " [ ] &Highlight the Cursor Line"
  44.    end) '' (if? _DelJoin  == 'y' 'b') +
  45.            (if? _BakJoin  == 'y' 'c') + (if? _BakOvl   == 'y' 'd') +
  46.            (if? _InsAbove == 'y' 'e') + (if? _ClipLine == 'y' 'f') +
  47.            (if? _CopyLine == 'y' 'g') + (if? _DelLine  == 'y' 'h') +
  48.            (if? _CurHigh  == 'y' 'i')
  49.            'bcdefghi'
  50.  
  51. // end-of-text line
  52. field "&End-of-Text Line:"  3 17 59
  53.       (if? _EOTLine _EOTLine default_eotline)
  54.  
  55. // ok/cancel buttons
  56. button "O&k"    54  3 8
  57. button "Cancel" 54  5 8
  58.  
  59. // display dialog box
  60. if (getdialog ref enterins ref enterovl ref options
  61.               ref eotline) == 'Ok' then
  62.   prf.EnterIns = enterins
  63.   prf.EnterOvl = enterovl
  64.   prf.DelJoin  = if? (pos 'b' options) 'y' 'n'
  65.   prf.BakJoin  = if? (pos 'c' options) 'y' 'n'
  66.   prf.BakOvl   = if? (pos 'd' options) 'y' 'n'
  67.   prf.InsAbove = if? (pos 'e' options) 'y' 'n'
  68.   prf.ClipLine = if? (pos 'f' options) 'y' 'n'
  69.   prf.CopyLine = if? (pos 'g' options) 'y' 'n'
  70.   prf.DelLine  = if? (pos 'h' options) 'y' 'n'
  71.   prf.CurHigh  = if? (pos 'i' options) 'y' 'n'
  72.   prf.EOTLine  = if? eotline <> default_eotline eotline ''
  73.  
  74.   // apply CurHigh and EOTLine immediately
  75.   w = getcurrwin
  76.   while w do
  77.     if wintype? "edit" w then
  78.       colorcursor (getpalette (if? _CurHigh == 'y' 4 2)) (getwincurs w)
  79.       if _EOTLine then
  80.         settitle _EOTLine 'z' 4 w
  81.         eotstring 4 w
  82.       else
  83.         eotstring -1 w
  84.       end
  85.     end
  86.     w = getprevwin w
  87.   end
  88. end
  89.